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DOD bbdD CCC LLL 
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SHOW DAYTIME 
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SHOW STAT 
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OC 49 v03-013 HwS0084 rold Schultz 19-Jul-1984 
D 4 Fix formatting a SHOW STATUS output. leaker it non-TAB 
$g dependent). 
$3 v03-012 wus00s6 Harol Schultz 09-Apr-1984 
2 Change SHOW SYMBOL default from /NOLOG to n G. 
‘3 v03-011 wuso0se Harold Schultz 14-Mar-1984 
4 seper’ erveces ion on symbol Setateten output. Add 
SHOW SYMBOL/LOG 
v03-010 wysoote Harold Schultz 13-Feb-1984 
x broken branch. 
3 v03-009 PCG0008 Peter 18-Aug-1983 
iu! § 
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MRSER=SR SUS: 18 HORM H8icg. Man: 
Retort eetu eeoctSeyrunes oer" 
Remove & ATION. 
v03-007 P 60006 Peter George 15-Jun-1983 
4 splay octal longword in SHOW SYMBOL. 
ix broken offset. 
v03-006 PCG0005 17-Feb-1983 


Pet 
penove coference +4 Sc tp BePauaL 
ceneve ser (Ue, K.V_NOSTA — SHOW SYMBOL. 
Call OCLSGETNVAL. 


v03-005 PCG0004 Peter George 07-Jan-1983 
Sonus 180, See DEF and S$ PROT so the FSENVIRONMENT 


v03-004 PC 3 Peter George 16-Nov-1982 
Reference WRK_C_SCRSTKSIZ instead of WRK_C_MSGBUFSIZ. 


v03-003 PCG0002 Peter George 21-0¢ t-1982 
Make SHOW SYMBOL work with the second version keyword 
parsing code. 

v03-002 PCG0001 


Peter 15-Oct-1982 


tefl” 


Geor 
Modify SHOW SYMBOL to vork-with the new keyword parsing code. 
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Mike Rhodes 17-" 
Fix + TT if RSID string defined ~ “FAO. STRING:. 
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MACRO LIBRARY CALLS 


PRCDEF H+ 14} PROCESS — ry 
WRKDEF DEF SPORT Puke 
¢ PTRDEF sDEFI fi Sus PARSE he FORMAT 
F sDEFI ERROR Sant ate 
Cc inagoer sDEFI rth te 
SJPIDEF 3GET JOB PROCESS TNFONAA fon DEF INITIONS 
| ; Define system structures used 
1 gta : format of H ta file record 
! Z SF IBDEF 3; format of FIB (ACP interface block) 
105 ; 
: 3 LOCAL DATA 
108 ° -PSECT DCLSZCODE,BYTE,RD,NOWRT 
1 ACCESS: sALLOWED ACCESS DESIGNATORS 
44 45 57 52 1 ASCII /RWED/ : 
11 STRINGMSG: ;TABLE DISPLAY CONTROL STRING 
11 eASCIC ° !AS!ACIAS = ““tas’’* 


cata 


i 113 BINARYMSG: 
ne 121 53 41 * Of 114 wASCIC * !AS!ACIAS = !SL Hex = !=!XL Octal = !=!0L" 
"" 
EE: ee Le 
i 115 NOACCESS: ;NO ACCESS ALLOWED DESIGNATOR 
Haadanes fits ,ASCII /NO ACCESS/ ; 
ii 117 NOACCESSEND: 
ii 118 PROTEC $63 ZDEFAULT PROTECTION CONTROL STRING 
$4 4) 21 z 4D 45 54 $3 59 $3 i 0 00 11 ASCIL / SYSTEM=!AD, OWNER=!AD., GROUP=!AD, WORLD=!AD/ ; 
$5 3¢ da 1 2 $0 0 $5 a se 6 068 
1 21 3p 4% 4c F DC 
07D 1 9 PROTECTEND: : 
d7 1g} STATUS ASG: ; 
1 i i Status on !20!5* Elapsed cPu': :!208; 
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é'/ Buff. 1/0 :!9UL Cur. ws.': !SUW!4® Open files : 'Suwe; 


1 ASCII. = : 
138 &'/7 | Dir. 1/0 : !9UL Phys. Mem. : !SUW!4* Page Faults :!9ULE; 
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128 STATUS_END: : 
text i-fur STR: ‘ :MULL STRING (COUNTED © DESCRIPTOR) 
PIC SLIST OF JPI ITEM 
#a07 Bt fie <.-sPI, ES>ee [FOR SHOW Statue x aes 
P 
i no asi of ae : 
} ater : 
FAO IuLiee DES>#2 F 
| ee iy : 
iz FAO. eracittsc, -JP1_COBES> : 
14 JPI$_GPG “e, : 
14 Pl “PAGEFLT 
143 FAO_ FILCNT=<. “i COBES>* a2 ; 
16 FAO~Q_CPU=F AO FILENT pn SUSE THIS LOCATION TWICE 
po preci FRR ; 
148 JPI_ARGS = <.-JP1_COBES>/2 [COMPUTE NUMBER OF JPI CODES 
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SHOW PROTECTION VT" MSE geG:TR REZ mre yas an 


ION DCL.SRCISHOW.MAR; 
é ‘ -SBTTL SHOW PROTECTION 
! DCLSSHOWPROT = SHOW PROTECTION 
! THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW PROTECTION 
3 DCLS COMMAND. 
INPUTS: 
Re = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
R9_ = ADDRESS OF SCRATCH STACK. | 
ai9 s Bas pret de: OF COMMAND WORK AREA. 
R11 = BASE ADDRESS OF PROCESS WORK AREA. 


OUTPUTS: 


7 
? THE CURRENT DEFAULT PROTECTION IS CONVERTED TO ASCII AND WRITTEN TO 
f THE OUTPUT STREAM. 
7 
79 CLSSHOWPROT: : :SHOW PROTECTION INFORMATION 
03 19 79 BSBB  DCLSSHOWPROTINT [CALL ROUTINE THAT DOES THE WORK 
026 £8 BRW EXTMSG : 
oe DCLSSHOWPROTINT:: 
7E 7 CLRL = = (SP) :WHERE TO RETURN PROTECTION 
7E 3 D0 MOVL  SP,-(SP) NOTE WHERE PROTECTION IS TO BE PUT 
§ D4 CLRL 0s = ¢ §P) [DON'T WANT TO SET PROTECTION 
00000000' 9F FB CALLS #2 afSYSSSETDFPROT [GET DEFAULT PROTECTION 
29 id p c MOVL (S6)+ R :COPY PROTECTION TO USEFUL REG 
C OA F 2,R? P INDEX 
E 3 6) 


sSET OUTER L 
sALLOCATE SPACE FOR A 


ee ee ee ee ee ee ee me ee ed ed ed ad aed aed ed dd dd 2 ed 8 8 8 ts 


PPI 22S OOD NAN WN OOO NAUE WN = S ODNOUES WN OVOOVNOULS WHO 
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wo 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 2 10$ CLRL CS CCESS DESIGNATORS 
79 «FEAF CF MOVAB WNOACCESS,-(R9) “ASSUME NO ACCESS ALLOWED 
A MOVZBL ENOACCESSEND-NOACCESS, ~(R9) . 
51 50 EF ‘ EXTZV. 87,84, R0,R1 sEXTRACT NEXT PROTECTION FIELD 
: 1 OD A MCOML : [COMPLEMENT PROTECTION FIELD 
F OD Ab BiTL &#*XF,R2 TALL ACCESS DENIED? 
A 1 A? BEQL 40$ SIF €QL YES 
6 De O19 CLRL = RO [CLEAR INNER LOOP INDEX 
04 a9 3 AB MOVAB (SP), 4(R9) [SET ADDRESS OF ACCESS DESIGNATORS 
: AF CLRL = (RO) [CLEAR COUNT OF ACCESS DESIGNATORS 
OA 51 Bl 20$: 68S R6,R1 308 SIF SET, ACCESS DENIED 
00 B946E FES6 CFS B5 vB access R6),a(RO)CSP] INSERT ACCESS DESIGNATOR 
BD INCL = CR’ SINCREMENT COUNT OF ACCESS DESIGNATORS 
EE 36 f a 308 AOBLSS #4,R6 208 ANY MORE TO CHECK? 
FFC8 5S? FC BF 90 C 40$ ACBB #0, #4, 0$ SANY MORE FIELDS TO CHECK? 
FE82 CF CA PUSHAB PROT [BUILD FORMAT CONTROL STRING DESCRIPTOR 
D pp ¢ 4 PUSHL #PROTECTEND-PROTECTMSG : 
50 5E oO D ri MOVL SP [COPY ADDRESS OF CONTROL STRING DESCRIPTOR 
D 6 SFAOL_S (RO), (RB). (RB) , (RD TFORMAT PROTECTION MESSAGE 
51 68 E 4 mOVa ~ (RB)-R1 SRETRIEVE OUTPUT MESSAGE PARAMETERS 
£ f : 4 ADDL #6%4:SP [CLEAN STACK 


oo 
baal 


ON Po SEsRs 


mm 
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3 
; 
om 


10 
E ENTRIES SSEpi9be QUUSE ENC sRHhce mass PAF 
~SBTTL SHOW SYMBOL TABLE ENTRIES 
DCLSSHOWSYMBOL = SHOW SYMBOL TABLE ENTRIES 


; 
® 


aa 


1 47 
163 508; 
1 ; 
1 : THIS ROUTINE I$ CAL ED AS AS AN INTERNAL COMMAND TO EXECUTE THE SHOW SYMBOL 
; TABLE SUTRIES DCLS 
| : : INPUTS: 
1E $ ; i: = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
1E ; = ADDRESS OF SCRATCH STACK. 
IE : RID = BA se ADDRESS OF COMMAND WORK AREA. 
H ; ADDRESS OF PROCESS WORK AREA. 
IE é : OUTPUTS: 
if 63 : THE SPECIFIED SYMBOL TABLE ENTRY OR ALL SYMBOL TABLE ENTRIES FROM 
169 4: EITHER THE LOCAL OR GLOBAL SYMBOL TABLE ARE WRITTEN TO THE OUTPUT 
169 5; STREAM. 
1€ . 
16 ; DCLSSHOWSYMBL: : : SHOW SYMBOL TABLE ENTRIES 
169 CLRL. = (SP) [ZERO TABLE LISTHEAD ADDRESS 
168 CLRB = @4 (RB) TASSUME /LOG 
1E 7 CLRQ RG 'ZERO DESCRIPTOR OF SYMBOL NAME 
iF i 10$:  B8SBW DCLSGETDVAL !GET NEXT DESCRIPTOR VALUE 
1 O1F CMPB 4s #PTR_K_ENDLINE,RS TEND OF LINE? 
13 1fe os BEQL 46=s« 308 * BRANCH F SO 
91 O1F 7 CMPB 490s @PTR_K_PARAMETR,RS PARAMETER? 
12 O1FB id: BNEQ 258 tBRANCH IF QUALIFIER 
1FD 87 ASSUME PTR ¥_KEYWORD EQ 21 
50 1FD 28 BBS #1,R3710$ :SKIP IF OPTION KEYWORD 
: 1 27 nova TSAVE DESCRIPTOR OF SYMBOL NAME 
x ? 25$: BSBW DCLSGETNVAL :GET QUALIFIER NUMBER 
1 : CMPB sR}, #@CLISK_SHSY_GLOB :/GLOBAL 
13 D Bea. 4=s« 20 [BRANCH IF SO 
91 F 4 CMPB i #CLISK_SHSY_LOCA :/LOCAL? 
13 5 Bea. ~=s«éa15$ [BRANCH IF SO 
91 021 CMPB #CLISK_SHSY_LOG 3/L0G? 
ig 1 BNEQ FOS TIF NOT, IGNORE IT 
18 3 CLRB 0 @4(R8) TASSUME /L 
9 If BLBC =—_- R310 :1T WAS /LOG. FLAG OK AS IS 
INCB air ) :1T WAS {NOL 06. CHANGE FLAG 
1 ‘7 BRB 0$ 3GET NEXT DESC. VALUE 
4: 6 % 15$: ROVAG PRC _@_LOCAL(R11) (SP) 3SET ADDRESS OF LOEAL SYMBOL TABLE 
re 34 208: mOVAG | apaemmeminneat e tSET ADDRESS OF GLOBAL SYMBOL TABLE 
87 $8 30$:  DECW (RB) ;REMOVE /LOG FLAG FROM SCRATCH BUFFER 
"6 3 INCL 4(RB) 
MOVG ~=—s_-aRG RI GET DESCRIPTOR OF SYMBOL NAME (IF ANY) 
8ED A POPL R GET ADDRES $ OF SYMBOL TABLE LISTHEAD 
' D TSTL oR ANY se SNARE SPECIFIED? 
F BNEG 408 t1F ois 
41 : ‘atueR : SURE JALL 


kK 10 
COMMAND EXECUTION 16-SEP-1984 00:16: AX/VMS Macro V04- P 
MBOL E ENTRIES $78 p=} 90:19:18 DCL.SRC a6r0 Manet 7 (8) 
4 ‘ 
i DISPLAY ALL SYMBOL ENTRIES 
4 
4 TST ZANY SYMBOL TABLE SPECIFIED? 
4 BNE $ [BR IF TABLE ADDRESS PRESENT 
4 MOVAQ PRC_Q_LOCAL(R11),R6 SASSUME /LOCAL 
4 MOVL 6, AP :COPY ADDRESS OF NAME TABLE LISTHEAD 
4C MOVL  (R6),R6 :GET ADDRESS OF NEXT ENTRY 
i peot Sat peg eee 
PUSHL (RB) SAVE 1ZE OF SCRATCH BUFFER 
5 PUSHR #*F<R6,R9> SAV ater ERs 
A MOVL : COPY SYMBOL POINTER 
D BSBB 43Es«éOD AL SPSmB ‘FORMAT AND OUTPUT ENTRY 
F POPR #*M<R6,R9> SRESTORE REGISTE 
3 ROVL {sB)+, (RB) SRESET SCRATCH BUFFER DESCRIPTOR SIZE 
6 RSB F 
ae 
3 ; DISPLAY SPECIFIED SYMBOL VALUE 
69 
69 MOVa =e R1, = (RO) :SAVE SYMBOL ENTRY DESCRIPTOR 
6C CLRQ = = (RO) ‘GUESS AT UNDEF I 
$ MOVL 6 RO :GET ADDRESS OF SYMBOL TABLE LISTHEAD 
BNEG }46s-«S0$ - SIF NEQ SPECIFIC 
, Js8 DCLSSEARCH SSEARCH ALL LOCAL AND GLOBAL SYMBOL TABLES 
se Bibs ROCDLEPSTRB SSEARCH SPECIFIC SYMBOL TABLE 
ERRMSG UNDSYM [OUTPUT UNDEFINED SYMBOL MESSAGE 
STATUS NORMAL SRETURN SUCCESSFUL 


: 3 A SY 

MOVAB SYM_T_SYMBOL(R3) ,R2 [POINT TO SYMBOL NAME 

MOVZBL (R23+7R1 [GET NAME LENGTH 

mova Ri += (9) SBUILD NAME DESCRIPTOR 

MOVL =ROLR :COPY SCRATCH STACK POINTER 
MOVG =s_-R1. = (R9) [BUILD NAME DESCRIPTOR AGAIN 
MOVZBL SYM_B NONUNIQUE(R3),(R7) :SET LENGTH OF REMAINDER 

BEQL  DISPNORSYM iff Eat NOT ABBREVIATED 

SUBB 4s SMB IQUE (R3), (RO) ;SHORTEN NAME TO ONLY UNIQUE PART 
ADDL (ROT, &¢ :SKIP UNQIUE PART IN REMAINDER 
MOVAB L“DC($GT_SYMABR,R4 [SET THE ABBREVIATION FLAG 
BRB DISPABR : 


E 


2 


L 10 
SHOW SYMBOL TABLE ENTRIES Mer See nabs Seiai1s Foe ee HBASG Mansy Page 2, 


§ 
Bp ; (RO) = DESCRIPTOR OF UNIQUE PORTION OF SYMBOL NAME 
BD BISPNORSYM: :DISPLAY SYMBOL W/ NO ABBREVIATION 
54 EESE cf 9 B MOVAB TEXT T_NULLSTR,R4 SWRITE NULL AS NONUNIQUE DELIMITER 
4 6 c MOVL RGR? [WRITE NULL AS NONUNIQUE PORTION 
¢ ; : R3 = ADDRESS OF SYMBOL TABLE ENTRY 
¢ ; R4 = ADDRESS OF ASCIC STRING BETWEEN UNIQUE AND NON-UNIQUE PORTIONS OF NAME 
¢ | R7_= ADDRESS OF DESCRIPTOR OF NONUNIQUE PORTION OF SYMBOL NAME 
¢ : (RO) = DESCRIPTOR OF UNIQUE PORTION OF SYMBOL NAME 
¢ f BISPABR: :DISPLAY W/ ABBREVIATION 
55 59 0 O2C HOV RO,RS [GET ADDRESS OF NAME DESCRIPTOR 
51 OCA A O2C 7% MOVZBL SYA_T_SYMBOL(R3) RI °GET LENG H OF SYMBOL NAME 
51 OD A341 4 C 75 VAB_ SYM“T"SYMBOL+1(R3)CR1],R1 ;GET ADDRESS OF SYMBOL VALUE 
02 0A A3 D id: CMPB SYM“BLTYPE (RS) .ASYA_K_BINARY *1S$ SYMBOL A STRING VALUE? 
OA 18 D 7 BNEQ Os sBRANCH IF SO 
52. 61. D A: MOVL  (R1),R2 [GET BINARY VALUE 
51 FD3A CF ; DA 19 MOVAB BINARYHSG.RI [DESCRIBE SYMBOL AS BINARY 
50 ‘ C 0261 110$:  MOVZWL (R1)+,RO SCONSTRUCT DESCRIPTOR OF STRING VALUE 
2 D O2E4 é mova RO. = (9) [PUSH DESCRIPTOR ONTO STACK 
52 po £7 MOVL R [GET ADDRESS OF EQUIV DESCRIPTOR 
51 FD16 CF EA 4 MOVAB STRINGMSG,R1 [DESCRIBE SYMBOL AS A STRING 
30 1 QA O2EF 5 50$:  MOVZBL (R1)+,RO SMAKE INTO DESCRIPTOR 
0 7D Fe 6 MOVG «RO, = (R29) “AND PUSH ONTO STACK 
F SFAO_S (R9), (RB), (R8).R5S.R4,R7.R2 :FORMAT OUTPUT MESSAGE 
59 As 00 OA 8 MOVL™ 4(RBS,R sSETUP TO RETREIVE /LOG FLAG 
50 0086" 8F ; 9 CMPW 30s @SS$_BUFFEROVF ,RO [WAS SYMBOL TRUNCATED? 
. 04 1 90 BEQL «6s 55S [YES, LEAVE /LOG FLAG ALONE. 
FF AD (01 1 91 MOVE = #1,-1(R9) S INSURE NO TRUNCATION MESSAGE 
51 7 1 % 55$: mova  (R&),R1 [GET OUTPUT MESSAGE PARAMETERS 
FCE1' 3 1c | (39 BSBW © DCLS$MSGOUT [OUTPUT SYMBOL 
OD FF AD CE 1F 39% BLBS -1(R9),60$ :SKIP IF /NOLOG 
9 D 3 ©6395 MOVL 4#0,R1 :SET FAO COUNT 
50 0003DE28 8F p 6 % MOVL #CLI$_SYMTRUNC,RO [SET MESSAGE CODE 
FCDO* 9 BSBU DCLSFORMMSG [OUTPUT TRUNCATION MESSAGE 
a. 38 60S: STATUS RMAL [SET NORMAL COMPLETION STATUS 
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‘+ ~SBTTL SHOW STATUS 
; DCLSSHOWSTAT = SHOW STATUS 


"SSEp=1986 BBzL8318 EDUC TS RcHShow. mans 


: THIS ROUTINE IS CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW STATUS 


; DCLS COMMAND. 


: INPUTS: 
r = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
4 = ADDRESS OF SCRATCH STACK. 
= ret ress tt: OF COMMAND WORK AREA. 
= BASE ADDRESS OF PROCESS WORK AREA. 
; OUTPUTS: 
VALUES CHARACTERIZING THE CURRENT PROCESS’S STATUS 
ARE FORMATTED AND WRITTEN TO THE OUTPUT STREAM. 


: SIDE EFFECTS: 


2 
>a 


CLSSHOWSTAT:: 
; BUILD DESCRIPTOR OF EXPANSION BUFFER 
MOVL 4(R8) ,R8 


WOVZWL #WRK_C_CMDBUF SIZ, (R8) 
wRk_G_BUFFER( 8155 (ae (R8) 


: INITIALIZE POINTERS AND INDEXES 


MOVL 2 {aes 80 
#JPI_ARGS*4 ,R9 


THE COMMAND BUFFER INSTEAD OF THE SCRATCH BUFFER 
S SCRATCH STACK) 


sBUILD + paet Hlt TO EXPANSION BUFFER 
3IN SCRATCH BUFFER 

;LENGTH OF Bu FFER 

:POINTER TO START OF EXPANSION BUFFER 


sPOINTER TO SCRATCH BUFFER 
ZINDEX INTO JPI RESULTANT LI 
SALLOCATE JPI RESULTANT LIST 


ST 


CONSTRUCT LIST OF JPI ITEM DESCRIPTOR BLOCKS IN SCRATCH BUFFER 


" MOV rf: SCR1},(RO)+ 
Rk, Heh HaRStaN 
CLRL (R 
AOBLEQ #JPI_ARGS-1,R1,10$ 
CLRL (RO)~ ‘ 


LENGTH OF RESULT (=LONGWORD) 


itp 
NTER TO RESULT BUFFER (=LONGWORD) 
NEED FOR RESULTANT LENGTH 

a FOR EACH ITEM IN LIST 
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N 10 
OMMAND EXECUTION 16-SEP-1984 00:16:12 VAX/VMS Macro v04-00 P 11 
paneer 99:19:18 PCL SRC a650 Manes ~~ i 
cura 68h? ;ALLOCATE AN 10SB 
SLT JPIW S° ITMLS$T=a4(R8),- [GET PROCESS INFORMATION 
EFNS#EXE C_SYSEFN,- ; 
ose=(R ) 


ADDL so# :POP THE 10S8 


; PERFORM SOME ARITHMETIC ON VALUES OBTAINED 


SUBL FAO_FILCNT(R9),FAO_FILLM(R9) sCOMPUTE COUNT OF OPEN FILES 

ADDL FAQ PPGENT (R9) FAO GPGCNT (RO) :COMPUTE TOTAL PHYSICAL MEMORY OCCUPIE 
3 000 0.FAO, CBUTIACR ),- :CALCULATE TIME IN 100NS UNITS 

MOVAL FAQ Q_CPO(R9),FAO_CPUTIM(RO) ;REPLACE BY POINTER TO QUADWORD 

CLRL. = = (RO) sINSERT SYSTEM TIME AND DATE AT TOP 


FORMAT AND PRINT INFORMATION 


Sete te 


PUSHAB STATUS_MSG :FAO MESSAGE TEXT 
wOVZBL #STATUS_END~STATUS_MSG,~(SP) sLENGTH OF MESSAGE 

SFAOL_S (RO), (RB), (RB), (RO) [BUILD MESSAGE IN SCRATCH BUFFER 
MOVa ~ (R8)-R1 [DESCRIPTOR OF MESSAGE 

ADDL #2%4:SP SCLEAN STACK 

BRW EXTMSG :GO OUTPUT MESSAGE 


PEEP PEEP PPP PEEP EPP EPP PEP PPE 
2000000090909 0909 SININN INI NINO A AAAAAAAOUIN 


BNAUNE WO ODNAULE WO OOONAULS UN OOo 
m 
= 
Cc 
~~ 


spBte,GpmmaND execution = * T'gseptoge 90:16:12 YAN/UNE Mare yO4 Page 13, 


-SBTTL SHOW DAYTIME 


oe 


owo 


PADMA AA AUT AUT UT UTI ES BP 


PAPE TD AOA OOOOMMOMOOOMOMOOOAOOAOOO 


Oor—mn"w® 


3+ 
3 DCLSSHOWTIME = SHOW DAYTIME 
: THI ROUTINE 1S CALLED AS AN INTERNAL COMMAND TO EXECUTE THE SHOW DAYTIME 
+ DCLS COMMAND 
$ INPUTS: 
; RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
; R9_= ADDRESS OF SCRATCH STACK. 
; R 9 = BASE ADDRESS OF COMMAND WORK AREA. 
; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
4 : OUTPUTS: 
$ ; THE CURRENT TIME AND DATE ARE CONVERTED TO ASCII AND WRITTEN TO THE 
! 3 OUTPUT STREAM. 
10 DCLSSHOWTIME: : :SHOW TIME AND DATE INFORMATION 
1 MOVL 4(RB),R2 [GET ADDRESS OF SCRAT (4 BUFFER 
1 MOV) #°A/ °/,(R2) S INSERT akEADIN B 
1 ADDL  #2,4¢R85 [POINT PAST LEADING BLAN KS 
14 SASCTIM_S (RB) [CONVERT CURRENT TIME TO ASCII 
15 MOVZWL “#22 7SET LENGTH OF OUTPUT MESSAGE 
18 EXTMSG: BSBW Dec SMsGouT [OUTPUT MESSAGE TEX 
7 STATUS NORMAL [SET NORMAL COMPLETION STATUS 


04-000 SHOW DIS 


S 


¢ 11 
R QUOTA "TS 198e BBLSH$ WOENSRCHSKOoRanss PAP UB, 


-PSECT DCLSABS,ABS 


ae «SBTTL SHOW DISK QUOTA 
¢ ; DCLSSHOWQUOTA = SHOW DISK QUOTA 
¢ : : THIS ROUTINE ASSIGNS A CHANNEL TO THE SPECIFIED DISK AND EXAMINES 
¢ ; THIS QUOTA FILE ENTRY BELONGING TO THE PROCESS’ UIC, AND OUTPUTS 
c § ; THE FORMATTED RESULT TO SYSS$OUTPUT. 
eC ; INPUTS: 
EC : RB = ADDRESS OF SCRATCH BUFFER DESCRIPTOR. 
¢ ; R9_= ADDRESS OF SCRATCH STACK. 
; R : = BASE ADDRESS OF COMMAND WORK AREA. 
EC ; R11 = BASE ADDRESS OF PROCESS WORK AREA. 
eC ; OUTPUTS: 
SEC ; VALUES FOR SPECIFIED OR DEFAULT DISK QUOTA ARE FORMATTED AND 
eC ; WRITTEN TO THE OUTPUT STREAM. 
Ee 
eC $ LOCAL STACK USAGE 
C 
4 
4 


BE 


OOD NAME WI SO OODNAULS WN O ONO 


C UVIC_LIST: -BLKL ; : GETJPI item List to read UIC 

4 10_STATUS ~BLKQ : 1/0 status bloc 

26 FIB: -BLKB FIBSC_LENGTH : FIB for ACP function 

C FIB_DESC: -BLKQ 1 : descriptor for FIB 
RECORD_DESC: -BLKQ 1 ; quota record buffer descriptor 

3; re-use for FAO string descriptor 

QUOTA_RECORD: .BLKB DQFSC_LENGTH ; quota record buffer 
CHANNEL : -BLKL 1 3 channel number 
DEVNAM_DESC: -BLKQ 1 3; device name descriptor 
DEVNAM: -BLKB 32 :; device name buffer 
IMPURE _SIZE: 


3 FAO control strings 
y -PSECT DCLSZCODE 


AAO 


: NOTE = ONLY SINGLE BYTE UIC FIELDS 
5 FAO_STRING: eASCIC ° User !%1 has !SL blocks used, !SL !AC,‘= 


PUDVDVIVWIVLIVUSVIVSVIVSVOSVOSVOSVSVSUS VOSS USUSUSUALUSVOSVOSVOSUSUOSVOSVOSVASVOSVASTOSVOS VOSS OOSOOSOASVOSUOSIOSOOSIOS 
BPEN 


ammmem@mn WO Oc 


SRASRannnnmoooSoSs + > 


40 
$6 
fs 266 *"!/ of !SL_ authorized and permitted overdraft of ‘SL blocks on !AS' 


65 6C 62 61 6C 69 61 76 61 00° C AVAIL: .ASCIC /available/ 


an 


SHOW = SHOW COMMAND EXECUTION 16-SEP-1984 00:16: AX/VMS Macro Vv04- Page 14 
v04-000 SHOW Ose QUOTA g: oat 90:19:18 DCL SRC ISHOU.MARSY— we ® 
GE 57 41 52 44 52 45 56 GF NG 568 OVER: .ASCIC /OVERDRAWN/ 
vocgrnmmaae IMPURE _SI WRK_C_SCRSTKSIZ ;MAKE SURE SCRATCH STACK BIG ENOUGH 
3 FFSO MOV <{MPURE™ size Rg) Ro SALLOCA E LOCAL STACK STORAGE 
69 0080 8F 69 f MOVCS #0, (R9) 780, #I1MPURE size (R9) - SINITIALLY ZERO 
SC A b 4 MOVL #DdFSC LENGTH RECORD DESC(R9) <SET QUOTA RECORD 
60 A 64 A . 7 MOVAB QUOTA _RECORD(A9) RECORD DESC+4(R9) -DESCRIPTOR 
54 A9 0 8F 7 MOVL dF LOSE LENGTH, FI, DESC(ROD sAND DESCRIPTOR FOR ACP 
sB.ao ie a9 7 MOVAB FABCR TF IB_DESC+%(R9) SFUNCTION 
—E D f CLRL 0s =< SP) SASSUME NO UIC SPECIFIED 
; GET NEXT TOKEN 
10s: 
FB6D' 30 ae BSBW - OCLSGETDVAL :GET NEXT RESULT PARSE DESCRIPTOR 
55 06 COO " « (MPB ss #PTR_K_ENDLINE,RS ZEND OF LINE? 
ap 6 BEQL $ SIF EQL YES 
55 9 CMPB = #PTR_K_COMDQUAL RS [COMMAND QUALIFIER? 
fs : BNEQ 108 SIF NEQ NO, IGNORE IT 
30 3 PARSE DISK NAME QUALIFIER VALUE 
FB60° 30 3 x BSBW DCLSGETNVAL 7GET QUALIFIER NUMBER 
51 00°8F 9 CMPB 4s ACLISK_SHQO_DISK,R1 [DISK QUALIFIER? 
F 9% BNEQ SIF NEQ NO 
FB57° 95 BSBW © DCLSGETDVAL SATTEMPT TO GET VALUE 
55 (0 36 CMPB ss @PTR_K_QUALVALU, RS [1S IT A VALUE DESCRIPTOR 
: 12 BNEQ 0$ t1F NEQ NO 
0088 C9 7D 9 MOV  R1,DEVNAM_DESC(R9) SSTORE DEVICE DESCRIPTOR 
ny: a 9 BRB 108 SAND GO AGAIN 
$ PARSE UIC QUALIFIER VALUE 
51 00°SF 91 4 los cepBtiét L1$K_SHQ0_USER,RI SUSER QUALIFIER? 
D5 6 BNEQ = 1 SIF NEQ NO, IGNORE IT 
FB42" ‘ 5 BSBW =: OC LSGETDVAL SATTEMPT TO GET VALUE 
55 (0 1 CMPB 4s #PTR_K_QUALVALU,RS SQUALIFIER VALUE? 
D i BNEQ :G0 TRY SOMETHING ELSE 
INCL (SP) SFLAG UIC WAS SPECIFIED 
54 t MOVG = RT RG [SAVE DESCRIPTOR OF UIC STRING 
FB35° BSBY =: OCLSCVTUIC [CONVERT UIC TO LONGWORD 
07 E 1 BLBC nS. “BRANCH IF ERROR 
68 A9 p 61g MOVL §R1,QUOTA_RECORD+DQFSL_UIC(R9) ;SAVE UIC NUMBER 
FFBB 13 BRW 10$ 360 FOR ANOTHER RESULT PARSE PIECE 
15 ; 
1 ; RETURN ERROR PARSING UIC 
gE gs 18 50$: = TSTL (sP)+ ZRESTORE STACK 
0124 «31 ; BRW 99$ SEXIT WITH ERROR 


Pasa cece TIRE SURE MAC atgs ARs Pee 


SB i a Ni 


fELse Pexit WITH ERROR 


120$: 
ACP function to read quota record 


PATA 


DA : 
DA 4 100S: 
p DA TST (sP)+ WAS vic ypeciF en? 
D g BNE “IF NEQ 
69 0304 F D MOVL #44<JPI$_UICa16 Lis st(R9): Sere Up GETJPI F 
68 : 3 cohe Qu 7 seharée. Tort Rd) UIE LIST +4( 4 (RD) lon GETTING UIC 
50 D C = 
F ela wedt HERESY =U Ici IST(R9) .* 7GET PROCESS INFORMATION 
F Seei RO) ~ ; 
SE 08 CO 4 ADDL #8 eP {POP THE 10SB 
$ 3 IF _NO DISK NAME SPECIFIED ON COMMAND, TRANSLATE SYSSDISK TO GET CURRENT 
+ DEFAULT DISK NAME 
1108: 
52. 0088 c9 9 9 VAB  DEVNAM_DESC(R9) .R2 :GET ADDRESS OF DEVICE DESCRIPTOR 
a TSTw © (R2) ‘DEVICE SPECIFIED? 
1 BNEQ i $ TIF NEQ YES 
p 1 4 VL #32, (R2) [SET CHARACTER DESCRIPT 
04 a2 C 1 5 MOVAB DEVNAM(R9),4(R2) [FOR TRANSLATION OF SYS$DISK 
5 "CF 1 6 V W°DCLST_DSKNAM,R1 SADDRESS OF DISK NAME COUNTED STRING 
1 OA MOVZBL (R1)4+,RO [GET QUAD WORD DESCRIPTOR 
3 o3 PUSHR #*M<RO,R1> [PUT QUAD WORD DESCRIPTOR IN STACK 
E ‘ CLRQ = =(SP) SFIRST TWO ARGS ARE ZERO 
7 63 CLRL = = (SP) tALSO THIRD IS ZERO 
4 F 9 31 PUSHAQ (R2) SADDRESS OF BUFFER DESCRIPTOR 
6 F 3 6 : PUSHAW (R2) SPLACE TO RESTORE LENGTH 
14 A F 6 PUSHAQ 20(SP) SADDRESS OF DESCRIPTOR IN STACK 
00000000 ' 9F FB 05 4 CALLS @ -B#51SSTRNLOG [TRANSLATE AND CLEAR THE STACK 
03 5 5 655 BLES R0.115$ SIF LBS SUCCESSFUL 
0001 A 6 6 es BRW $ SELSE EXIT WITH ERROR 
5304 ag 2 1 e38 ADDL3 (R2),4(R2),R3 :GET ADDRESS OF LAST CHARACTER 
7 1 054 5 CMPB Os #*A/:/,-(R$) SOF DEVICE. IS IT COLON? 
é 1 4 9 BNEQ 1178 SIF N 
L $ L 
62 D 4 66 DEC (R2) DISCOUNT TRAILING COLON 
4 oe 3 ASSIGN A CHANNEL TO THE DISK AND GET DISK QUOTA RECORD FROM ACP 
4 § {178: 
4 SASSIGN_S DEVNAM = (R2) = :ASSIGN A CHANNEL TO SPECIFIED 
4 CHAN = Ani (89) DEVIC 
ps SucCESsFUL 
e 
2A ag oc 80 MOV 1BSC_EXA eQuaTA F1eerieiw ENTRLFUNC (RO) 
0 SCA E MOVAB RECORD-DESC(R9) ,RO 
$Q10W_S CHAN = CHANNEL(R9),- 

FUNC = #10$ ACPCONTROL , 

10SB = 10 STATUS(R9),- 

EFN = = -MERESC Svser a 

PI = FIB_DESC(RS),- 

P = RO,= 


2s 


Ste gommane execution FT EAIGE SUE BRE Page If, 
= RO 


be A i RoVML 19 "Mates RO et 1/0 status and check it 
58 Re BE Z us and chec 
3 FORMAT THE INFO AND DISPLAY IT 
29 0088 C9 § : poves peynan DESC(RO) .RO get, address of wie name descriptor 
FEGC CF MOVA AOS RING,R nt to FAO $s 
5 A vA A ROVzBL (R Riss RECORD DESC no Set its ten ength th 
§ ag A MOVL GUSTAR CORD SbOF L_USAGE(R9) RI 6 sand adé iets 
A AD MOVL RECORDS DOF Se “PERMQUOTA(R >Re wi QUOTA 
e E B1 MOV te OT OVER DRAWN 
5 : B6 SUBL3 R1,R2.R R REMAINING 
BA 5 BEG $. tIF THEN A NOT OVERDRAWN 
53 BC 3% MNEGL 7MAK OVERBRART POSITIVE 
FESE CF ef 3 en MOVAB Buen RG 7SET KEYWORD ADDRESS 
: 
55 7409 00 05¢4 MOVL § QUOTA_RECORD+DOFSL OVERDRAFT (RQ) , RS of ett overdraft Limit 
C ld the message 
¢ SFAO_S CTRSTR = RE ORD. DESC(RO) += - 
C : OUTLEN = Chi = 
C TBUF = 
¢ P = tk -RECORD+DOF$L_UIC(R9) ,= 
¢ 5 P = ie TBLOCKS USED 
¢ f P = R3,- BLOCKS REMAINING OR OVERDRAWN 
Cc P4 = R4,- :‘‘available’’ OR ‘‘OVERDRAWN’ 
cs 7 : PS = R2,- S AUTHORIZED 
¢ f P = R5,- SAUTHORIZED OVERDRAFT 
¢ 19 P = RO [DEVICE NAME 
0 E 1 BSBB 788 sdeassign the channel 
51 : 1 mova (R8) RI iget string descriptor 
FDF4 EA 1 BRW EXTMSG soutput and exit 
ED 18 ; ? DEASSIGN THE CHANNEL TO THE DISK 
50 oD Ep 1 bas: PUSHL RO save return status 
£ 1 SDASEGN S CHAN = CHANNEL(R9) 
50 8E 00 4 998: MOVL “~(SP)+,RO srestore return status 
0S O5FE : RSB 
FF 
FF 4 END 


611 
HOW = SHOW COMMAND EXECUTION 16-SEP- :16:12 YAX/VMS Macro v04- 
Syabol table rete) ae A ee SHOW.MAR; 
$1 = MPURE $12 00000080 
+ = 0 {os AEPEONTROL eeeeetee xX 02 
ACCESS 10000000 R Ogtaty 
INARYMSG 10018 R JPIS-CPUTIM = 
€ 1}. JP m) } 2 
LISK_SHQO_DISK aeeneeee =X JPIS-FILCNT = 
LISK-SHQO-USER aeeeeere x JIS FILLA 2 
LISK-SHSY-GLOB eeneeeee x JPIS-GPGCNT = 
LESKISHSY“LOCA eeeeeere x JPIS-PAGEF LTS 2 
CLISK~SHSY~LOG aeeeeree =X JP1S$-PPGCN = 
L1$_RORMAC = 00030001 seis UIC 2 
“SYATRUNC = 000% JPIS-“WSSIZE = 1 

CLIS“UNDS YR = 00 JPI_ARGS = Oo 
DCLSCVTUIC aeeeneer x JP1-CODES D6 ® 
DCLSERRORMSG aeeeeree =X NOACCESS 06 a 
DCLSFORMMSG aeeerere x NOACCESSEND 00000080 & 
DCLSGETDVAL eeeneeee =X OVER 10000461 R 
DCLSGETNVAL eeneeree x PIOSGT_DDSTRING ee Xx 
DCLSGT_SYMABR eeneeere =X PRC_B_CONTINUE F3 
DCLSMSGOUT eeeerere =X PRC_B_DEFRADIX 
DCLSSEARCH eeenenee PRC_B_EXMDEPMOD 
DCLSSEARCHT eeeeeree x PRC_B-EXMDEPWID 
DCLSSHOWDEF 1 PRC-B-EXONLYL 
DCL SSHOMDEF INT . PRC“B-FLAGS2 

CLSSHOWPROT PRC_B-IMGFLAG 
DCLSSHOWPROT INT PRC-B-OUTFLAGS 

CLSSHOWQUOTA PRC_B-PROMPTLEN 
DCLSSHOWSTAT PRC-C-LENGTH 

CLSSHOWS YMBL PRC-G_-COMMANDS 
DCLSSHOWT IME PRC-G-PROMPT 
DCLST_DSKNAM PRC-K-LENGTH 

VNAA PRC-L-CURRKEY f 
DEVNAM_DESC PRC-L-EXMDEPADR i 
DISPABR PRC-L-EXTARG 
DISPNORSYM PRC-L-EXTBLK 10 
DISPSYMB PRC-L-EXTCOD 10 
DOFSC_LENGT 2 PRC-L-EXTHND 
DOF $L-OVERDRAF T = PRC-L-EXTPRM 
DOF $L-PE s PREMLIDELNK 
DOF S$L-UIC . PRC-L-IMGACTSTS 
DOF SL USAGE = PRC-L-INDCLOCK 
EXESC-SYSEFN x PRC-L-INDEPTH 
EXTAS R PRECLCINDE AB 
FAO_CPUTIN s PRC-L-INDINPRAB r 
FAO-FILCNT 2 PRC“LINDOUTRAB 06 
FAO-FILLM = PRC-L-INPRAB 06 
FAO-GPGCNT : PRC-L-LASTKEY 06 
FAO-PPGCNT = 0 PRC-L-LSTSTATUS DOE 
FAO~0_ CPU s ¢ PRC-L-ONCTLY Ii: 
FAO-STRING R= 02 PRC-L-ONERROR 106 
FAO_WSSIZE : PRC-L-OUTOF BAND OE 
F18 PRC-L-OUTRAB 
F 18SC_EXA_QUOTA = PREL-QUTRARCTX i 
FIBSC-LENGTH = PRC-L-PPFLI 
F 1BSW~ CNTRLFUNC s PRE-LRECALLPTR } 
F1B_DESC PRC“L-RESTART 


a 


< 
Cc 


+! | 
68 
2a<3 
4 


KEYWORD 
QUOTA” RECORD 
RECORD _DESC C 
SS$_BUFFEROVF eeteeeee §6X 
ST F 
ST 
$T 


ATUS-AsG 1 ft 
RINGASG R 
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SYM_K_BINARY 
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a 
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WRK-L-EXPANDPTR 


ADRTN 
CALLPTR 
LEND 
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= SHOW COMMAND EXECUTION 16-SEP-1984 AX/VMS Macro V04- Pa 19 
Syubol table grSeem bbe SRiUSE1E HAR/Mes Macro yoe-90 eo ® 
une-t-th FEE 
URE -W"PRE LEN FEFRESS 
domanaarsanevanaemnad 
: Psect synopsis ! 
. tose nme maenaence dt 
PSECT name Allocation PSECT No. Attributes 
00000000 ( -) ( -) NOPIC USR CON ABS LCL NOSHR NOEXE NORD WNOWRT NOVEC BYTE 
; FFFFFFFC ¢ ) ( 1.) NOPIC USR CON ABS ~ LCL NOSHR Hs WRT NOVEC BYTE 
DCLSZCODE FF ¢ % ) ( 2.) NOPIC USR CON REL LCL NOSHR x RD NOWRT NOVEC BYTE 
DOCLSABS 0 ¢ 6.) ( 5.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
¢weswoeoconec om onesensammacaed} 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 .07 : 1-8 
Cc processing 1 9. 9 :00:05. 
ee aati . 2 . 1-91 :00:26.4 
yabo sor ae :00:02. 
Pass ; 1 § 00:02. $ :00:1 3 
sane table output :00:00.1 :00:00.1 
synopsis output 3 :00: 83 :00:00.26 
saved output :00:00. ! 0:00:00. 9 
Assembler run totals 534 :00:15.6 0:00:45. 4 


The working ort Limit yes 1350 pa 
56101 eyees, \ 0 pages) of virtua aenery were used to puffer. the inpornedioce ode. 
There were 50 pages of symbol table , *Pace ow eceiae to hold non-local and 32 Local symbols. 
is source lines were read in Pass 1, producing } object records in Pass 2. 
pages of virtual memory were used to define 33 macros. 


toeececeswe es eceocecoseccoewes + 


! Macro library statistics } 


+ enna AB wesoceon eer nmeceaones + 


Macro Macro Library n name Macros defined 
$esstpune: st da3e Mee“ MLB; 1 
: BCL .08 DCL AL LLB; if 
ESvscie eae hup;2 : 1 
Tetacs S$ (all Libraries) 26 


1014 GETS were required to define 26 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1IS$:SHOW/0BJ=0BJ$: SHOW MSRCS$: SHOW/UPDATE=(ENHS: SHOW) +EXECML$/LIB+L1B$:DCL/LIB+SYSS$LIBRARY : SYSBLOMLB/LIB 
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